home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / repeat.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  200 b   |  17 lines
  1. program RepeatUntil;
  2.  
  3. var
  4.     b      : real;
  5.  
  6. begin
  7.     b := 1;
  8.  
  9.     repeat
  10.         begin
  11.             writeln(b);
  12.             b := b+frac(b/2)*3;
  13.         end;
  14.     until b>10;
  15.  
  16.     writeln('OK!');
  17. end.